home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / BASIC MAIN MENU.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  20 lines
  1. 1  ONERR  GOTO 9000
  2. 5  HOME : TEXT : GOSUB 10000
  3. 10  GOSUB 20000: GOSUB 30000: GOSUB 40000: GOSUB 50000: ON S GOSUB 1000,2000,3000,4000,5000,6000: GOTO 10
  4. 1000  RETURN 
  5. 2000  RETURN 
  6. 3000  RETURN 
  7. 4000  RETURN 
  8. 5000  RETURN 
  9. 6000  RETURN 
  10. 9000  IF  PEEK(222) = 255  THEN 10
  11. 9010  HOME : VTAB 12
  12. 9800  PRINT  CHR$(7);"ERROR NUMBER "; PEEK(222);" IN LINE "; PEEK(219) *256 + PEEK(218)
  13. 9900  VTAB 22: PRINT "HIT RETURN TO CONTINUE ";: GET A$: GOTO 10
  14. 10000  DIM OP$(6): FOR I = 1 TO 6: READ OP$(I): NEXT : RETURN : DATA  CHOICE 1,OPTION 2,SELECTION 3,ITEM 4,FUNCTION 5,OPPORTUNITY 6
  15. 20000  HOME : GOSUB 20010: FOR I = 1 TO 7: PRINT "**"; TAB( 38);"**": NEXT : GOSUB 20010: RETURN 
  16. 20010  FOR I = 1 TO 38: PRINT "*";: NEXT : PRINT "*": RETURN 
  17. 30000  POKE 32,4: VTAB 4: PRINT "    MAIN MENU OF PROGRAM   ": PRINT : PRINT "BY DAVID SZETELA": TEXT : RETURN 
  18. 40000  FOR I = 1 TO 6: VTAB I +11: HTAB 5: PRINT I;".  ";OP$(I): NEXT : RETURN 
  19. 50000  VTAB 21: INPUT "   SELECTION  ->";SE$:S =  VAL(SE$): IF  LEN(SE$) < >1  OR S <1  OR S >6  THEN  PRINT  CHR$(7): VTAB 21: CALL  -958: GOTO 50000
  20. 50010  RETURN